unit uCxDialogo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmCXDialogo = class(TForm)
    lblInf: TLabel;
    bOK: TButton;
    timer: TTimer;
    procedure timerTimer(Sender: TObject);
    procedure bOKClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    tempo: Integer;
  public
    { Public declarations }
  end;

var
  frmCXDialogo: TfrmCXDialogo;

implementation

{$R *.dfm}

procedure TfrmCXDialogo.timerTimer(Sender: TObject);
begin
 inc(tempo);
 case tempo of
  1: lblInf.Caption:= 'Gerando Arquivo.';
  2: lblInf.Caption:= 'Gerando Arquivo..';
  3: lblInf.Caption:= 'Gerando Arquivo...';
 end;
 lblInf.Refresh;
 if tempo = 3 then
   Close;
end;

procedure TfrmCXDialogo.bOKClick(Sender: TObject);
begin
 Close;
end;

procedure TfrmCXDialogo.FormActivate(Sender: TObject);
begin
 tempo:= 0;
 lblInf.Caption:= 'Gerando Arquivo';
 lblInf.Refresh;
end;

end.
